home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Guided Tour of Multimedia (Second Edition)
/
The Guided Tour of Multimedia (Second Edition).iso
/
trials
/
qtw111
/
samples
/
eachmovd.frm
< prev
next >
Wrap
Text File
|
1993-01-13
|
2KB
|
96 lines
VERSION 2.00
Begin Form frmEachMovDir
Caption = "Play Each Movie"
Height = 3555
Left = 1425
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3150
ScaleWidth = 4275
Top = 1140
Visible = 0 'False
Width = 4395
Begin DriveListBox drvMovie
Height = 315
Left = 120
TabIndex = 6
Top = 2700
Width = 2355
End
Begin DirListBox dirMovie
Height = 1605
Left = 120
TabIndex = 4
Top = 720
Width = 2355
End
Begin CommandButton cmdCancel
Cancel = -1 'True
Caption = "Cancel"
Height = 375
Left = 2940
TabIndex = 1
Top = 600
Width = 1215
End
Begin CommandButton cmdOK
Caption = "OK"
Default = -1 'True
Height = 375
Left = 2940
TabIndex = 0
Top = 120
Width = 1215
End
Begin TextBox txtDirMovie
BorderStyle = 0 'None
Height = 225
Left = 180
TabIndex = 3
TabStop = 0 'False
Top = 420
Width = 2715
End
Begin Label lblDrvMovie
Caption = "Dri&ves"
Height = 195
Left = 180
TabIndex = 5
Top = 2460
Width = 1035
End
Begin Label lblDirMovie
Caption = "&Directories:"
Height = 195
Left = 180
TabIndex = 2
Top = 180
Width = 1035
End
End
Option Explicit
Sub cmdCancel_Click ()
End
End Sub
Sub cmdOK_Click ()
MoviePath = frmEachMovDir.txtDirMovie
ChDir MoviePath
Unload frmEachMovDir
End Sub
Sub dirMovie_Change ()
txtDirMovie.Text = dirMovie.Path
End Sub
Sub drvMovie_Change ()
dirMovie.Path = drvMovie.Drive
End Sub
Sub Form_Load ()
txtDirMovie.Text = dirMovie.Path
End Sub